sync on
autocam off
color backdrop rgb(0,0,0)
load image "ground.jpg",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1
position matrix 1,-500,0,-500
position camera 0,100,0
set ambient light 20
color ambient light rgb(64,64,128)
set point light 0,0,0,500
position light 0,0,100,0
color light 0,512,512,255
set light range 0,1000
wait 1000*8
hide light 0
wait 1000*8
show light 0
while inkey$()<>"x"
set cursor 0,0
print "LIGHT COMMANDS (X to Exit)"
sync
endwhile
end